unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, 
  Controls, Forms, Dialogs, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    mnuFile: TMenuItem;
    mnItemOpen: TMenuItem;
    mnItemNew: TMenuItem;
    mnItemSave: TMenuItem;
    mnItemAutoSave: TMenuItem;
    bar: TMenuItem;
    mnItemSub: TMenuItem;
    mnItemOne: TMenuItem;
    mnItemTwo: TMenuItem;
    mnItemThree: TMenuItem;
    mnItemExit: TMenuItem;
    mnuHelp: TMenuItem;
    mnItemAbout: TMenuItem;

    procedure ItemClick(Sender: TObject);
    procedure mnItemAboutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ItemClick(Sender: TObject);
begin
   With Sender as TMenuItem do 
       ShowMessage('You have selected : '+Caption);
   if sender=mnuItemAutoSave then  
      with   (sender as TMenuItem) do 
                                 Checked:=not Checked;

   if sender=mnuItemExit then  Close();

end;

procedure TForm1.mnItemAboutClick(Sender: TObject);
begin
  ShowMessage('Copyright (C) by MK Book Store');
end;

end.
